home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / children / fdplot13.exe / PLOTN.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  2KB  |  64 lines
  1. 100 CLS : PRINT " ATI Function/data plotting program"
  2. 105 PRINT"   UNREGISTERED SHAREWARE":PRINT
  3. 110 DIM FUNCT$(2), DATX(100), DATY(100)
  4. 115 DEFINT I-N
  5. 120 PRINT "Plot a function (Y/N)? _";
  6. 121 GOSUB 8000
  7. 122 IF A$<> "Y" AND A$<> "N" THEN 121 ELSE NF$=A$:PRINT A$
  8. 130 PRINT "Plot a data set (Y/N)? _";
  9. 131 GOSUB 8000
  10. 132 IF A$<> "Y" AND A$<> "N" THEN 131 ELSE ND$=A$:PRINT A$
  11. 133 IF NF$="N" AND ND$="N" THEN CHAIN "MENU"
  12. 134 X$=CHR$(34)
  13. 135 SHELL "TYPE T2.BAS > T.BAS"
  14. 136 SHELL "ECHO 490 NF$="+X$ + NF$ +X$+ ":ND$=" +X$+ ND$+X$ + " >> T.BAS":
  15. 137 SHELL "ECHO 491 RETURN >> T.BAS"
  16. 145   'Function entry
  17. 150   IF NF$="N" THEN SHELL "ECHO 1100 RETURN >> T.BAS": GOTO 265
  18. 175     PRINT : PRINT " Enter function in BASIC format as:"
  19. 178     PRINT "  Y=f(X)       (Example: Y = SIN(X^2) + 3*X^3 + 5*X/7 + 2 )"
  20. 183     INPUT ""; TEMP$
  21. 194     FUNCT$(1) = STR$(1100) + " X=T"
  22. 195     FUNCT$(2) = STR$(1105) + " " + TEMP$
  23. 196     I1 = INSTR(1, TEMP$, "Y=")
  24. 236     SHELL "ECHO "+ FUNCT$(1)+" >> T.BAS"
  25. 238     SHELL "ECHO "+FUNCT$(2)+" >> T.BAS"
  26. 240     SHELL "ECHO 1199 RETURN >> T.BAS"
  27. 245   'Function defined.
  28. 265 REM End function definition/entry
  29. 270 REM Data-set entry/storage to disc
  30. 275 IF ND$ = "N" THEN 450
  31. 285     PRINT "Is data-set already stored on disk? (Y/N) _";
  32. 286     GOSUB 8000
  33. 295     IF A$ <> "Y" AND A$ <> "N" THEN 286 ELSE PRINT A$
  34. 300     IF A$ = "N" THEN 305 ELSE 440
  35. 305     'THEN
  36. 325       PRINT "Enter data-set in pairs of numbers, X,Y";
  37. 330       PRINT " , signal end of data with @,@"
  38. 335       A$ = " ": B$ = " ": J = 0
  39. 340       WHILE A$ <> "@"
  40. 345         J = J + 1
  41. 350         PRINT "X"; MID$(STR$(J), 2); ","; "Y"; MID$(STR$(J), 2); " ";
  42. 355         INPUT A$, B$
  43. 360         IF A$ = "@" THEN 380
  44. 365           DATX(J) = VAL(A$): DATY(J) = VAL(B$)
  45. 380       WEND
  46. 385       DTSN = J - 1
  47. 390       REM STORE ON DISC
  48. 395       FM$ = "PLOTD"
  49. 400       OPEN "O", #1, FM$
  50. 405       PRINT #1, DTSN
  51. 415       FOR J = 1 TO DTSN
  52. 417         PRINT #1, DATX(J); ","; DATY(J)
  53. 425       NEXT J
  54. 430       CORL$ = "-2": PRINT #1, CORL$
  55. 435       CLOSE #1
  56. 436       PRINT : PRINT "New data saved on disc.": PRINT
  57. 440     'ENDIF
  58. 450 REM End data def/entry
  59. 453 PRINT "Creating Plot program, ...... please wait ......"
  60. 520 SHELL "TYPE T3.BAS >> T.BAS": CHAIN "T.BAS"
  61. 8000 A$=INKEY$:IF (A$="") GOTO 8000
  62. 8010 IF (ASC(A$)> 96) THEN A$=CHR$(ASC(A$)-32)
  63. 8020 RETURN
  64.